spacewar 4.8 7/2 V63 dfw -pt 1 

3/ jmp sbf / ignore seq. break 

jmp a4o 
nop 



/ interesting and often changed constants 

/symb loc usual value (all instructions are executed, 
/ and may be replaced by jda or jsp) 



tno 

tvl 

rlt 

tlf 

foo 

maa 

sac 

str 

mel 

me? 

ddd 

the 

mhs 

hdl 

hd r 

hd3 

hrl 

hur 
ran 
grv 



6, law i 4l / number of torps + 1 

7, sar 4s / torpedo velocity 

10, law i 20 / torpedo reload time 

11, law i 140 / torpedo life 

12, -20000 / fuel supply 

13, 40 / spaceship angular acceleration 

14, sar 4s / spaceship acceleration 

15, 100 / star capture radius 

16, 6000 / collision "radius" 

17, 3000 / above/2 

20, -0 / to save space for ddt 

21, sar 9s / amount of torpedo space warpage 

22, law i 10 / number of hyperspace shots 

23, law i 40 / time in hyperspace before breakout 

24, law i 100 / time in hyperspace breakout 

25, law i 200 / time to recharge hyperf ield generators 

26, scl 9s /scale on hyperspatial displacement 

27, scl 4s / scale on hyperspatially induced velocity 

30, 40000 / hyperspatial uncertancy 

31, / random number 

32, sar 6s / gravitational constant 



/ place to build a private control word routine. 

/ it should leave the control word in the io as follows t 

/ high order 6 bits, high acceleration, normal acceleration, 

/ rotate cw, rotate ccw, fire torpedo, and hyperspace. 

/ Routine is entered by jsp cwg.for ssl and by jsp dwg 

/ for ss2. 

40/ 

cwr, jmp mgl / normally lot 11 control 
dwr, jmp mg2 / normally iot 111 control 
. 20/ / space 



/ routine to flush sequence breakes, if they occur. 

sbf, tyi 

lio 2 
lac 
Ism 
jmp i 1 

define 
xincr X,Y,INS 

l ac 1 
INS ssn 

dac Y 

lac X 

INS sen 

dac X 

term 

define 
yincr 'X,Y,INS 

lac Y 

INS sen 

dac Y 

lac X 

-INS+add+sub ssn 

dac X 

terminate 



dispatch 



define 

add (. 3 
dap . 1 

jmp . 
term 



define 
dispt A,Y,B 

repeat 6 B=B+B 

lio Y 

dpy-A+B 

term 

define 
scale A,B,C 

lac A 
sar B 
dac C 
term 



def in 
diff V,S,SF 

add i V 
dac i V 
xct SF 
add i S 
dac i S 
term 



define 
random 

lac ran 
rar Is 
xor (355670 
add (355670 
dac ran 
term 



define 
ranct S,SS,C 

random 

S 

SS 

sma 

cma 

dac C 

terminate 



define 



v2, 



define 



define 



varsf_t 
dzm xys 
dac tl 
idx xys 
idx xys 
lac tl 
scr 2s 
dac Tl 
sza 

jmp v2+R 
scr 2s 
swap 
terminate 

undosft 
dac jtl 
dio t2 
lac xys 
add stb 
dap . +1 
lac . 
dac .+6 
dac .+6 
xor JlOOOO 
dac xyt 
lac jbl 
dio t? 
scr . 
scr . 
terminate 

integrate A,B 

cli 

lac i A 

scr 9s 

scr Is 

div tl 

hit 

cma+cll-opr 

xct xyt 

xct grv 

dac B 

terminate 



/ change scr to scl or scl to scr. 



stb, 



lac .-1 
scr 7s 
scr 6s 
scr 5s 
scr 4s 
scr 3s 
scr 2s 
scr Is 
scr 
scl Is 



/sine-cosine subroutine •Adams associates 

/calling sequence= number in AC, jda sin or jdacos. 

/argument is between +2 pi, with binary point to right of bit 3. 

/answer has binary poTnt to right bit 0. Time = 2.35-? ms. 

/changed for auto-multiply , ddp 1/19/63 



cos, 



sin, 



sil, 



sl3, 



CSX, 
B12, 








dap 


CSX 


lac 


(62210 


add 


COS 


dac 


sin 


jmp 


.+4 







dap 


CSX 


lac 


sin 


spa 




add 


(311040 
(622IO 


sub 


sma 




jmp 


si? 


add 


(62210 


ral 


?s 


mul 


(242763 


dac 


sin 


mul 


sin 


dac 


cos 


mul 


(756103 


add 


(1^1312 


mul 


cos 


add 


(532511 


mul 


COS 


add 


(144417 


mul 


sin 


scl 


3s 


dac 


cos 


xor 


sin 


sma 




jmp 


csx-1 


lac 


(377777 


lio 


sin 


spi 




cma 




jmp 


CSX 


lac 


cos 


jmp 


• 


cma 




add 


(62210 


sma 




jmp 


si3 


add 


(62210 


spa 




jmp 


.+3 


sub 


(62210 


jmp 


si3 


sub 


(62210 



jmp sil 

/integer square root 

/input in ac, binary point to right of bit 17, jda sqt 
/answer in ac with binary point between bits 8 and 9 
/la. st inp t number = 177777 



sqt, 









dap 


sqx 




law 


i 23 




dac 


sql 




dzm 


sq2 




lio 


sqt 




dzm 


sqt 


sq3, 


isp 


sql 




jmp 


.+3 




la 


sq2 


sqx, 


jmp 


• 




lac 


sq2 




sal 


Is 




dac 


sq2 




lac 


sqt 




rcl 


?s 




sza 


i 




jmp 


sq3 




dac 


sqt 




lac 


sq? 




sal 


Is 




add 


(1 




sub 


sqt 




sma+sza-skp 




Jmp 


sq3 




spa 






cma 






dac 


sqt 




idx 


sq2 




jmp 


sq3 


sql, 







sq2, 








/outline compiler 

/ac=where to compile to, call jda oc 

/ot=address of outline table 



define 



plinst A 
lac A 
dac i oc 
idx oc 

termina e 



define 



ocs 



ocz, 
oc, 



ock, 



ocj, 
ocg, 
och, 



oco, 
ocq, 
ocp, 
ocr, 



comtab A, B 
plinst A 
jsp ocs 

a B 

mp oce 
terminate 

dap ocz 

dio i oc 
idx oc 
dio i oc 
idx oc 

jmp . 



dap ocx 

lac i ocx 

dap ocg 

plinst (stf 5 

dap ocm 

idx ocx _ 

plinst (lac sxl 

plinst (lio syl 

elf 6 _ 

setup occ,6 

lio . 

cla 

rcl 3s 

dio oci 

lio (rcl 9s 

dispatch 

opr 

jmp ocl 

jmp oc2 

jmp oc3 

jmp oc4 

jmp oc5 

jmp oc6 



/puts in swap 



/outline compiler proper 



/outline ta le 



plinst (szf 5 /7 code 

add (4 

dap ocn 

plinst ocn __ 

plinst (dac sxl 

plinst (dio syl 

plinst (Jmp sq6 

plinst (elf 5 

plinst (lac scm 

plinst (cma _ 

plinst (dac scm 

plinst (lac ssm 

plinst (cma __ 

plinst (dac ssm 

plinst (lac csm 

plinst (lio s_sd 

plinst (dac ssd 

plinst (dio csm 

p nst (lac ssc 

plinst (lio csn 



plinst (dac csn 

plinst (dio ssc 

plinst ocm 
ocx, Jmp . 



ocm, 


jmp . 






ocn, 


Jmp . 






ocl, 


plinst (add "ssn 

Jsp ocs 

lac (sub sen 






oce, 


dac i oc 
idx oc 
Jsp ocs 
plinst (ioh 
lac (dpy-4000 






ocd, 


dac i oc 

idx oc 

lio oci 

count occ, och 

idx ocg 

Jmp ocj 






oc2, 


comtab (add "scm, 


(add 


ssm 


oc3 


comtab (add ssc, 


(sub 


csm 


oc4, 


comtab (sub scm, 


(sub 


ssm 


oc5, 


comtab (add csn, 


(sub 


ssd 


oc6, 


szf 6 

Jmp oc9 

stf 6 

plinst (dac ssa 

lac (dio ssi 

Jmp ocd 






oc9, 


elf 6 _ 
plinst (lac ssa 
lac (lio ssi 
Jmp ocd 







/display a star 
define 



blp, 



blx, 
bpt, 



bjm, 
bds, 

bpx, 



starp 


add Tdx 


swap_ 


add 


by 


swap 


ioh 




ex- 


-4000 


terminate 


dap 


blx /s- 


szs 


60 


jmp 


blx 


random 


rar 


9s 


and 


(400700 


spa 




xor 


(377777 


dac 


¥x 


lac 


ran 


ral 


4s 


and 


(400700 


spa 




xor 


(377777 


dac 


by 


Jsp 


bpt 


ioh 




jmp 


• 


dap bpx 


random 


sar 


9s 


sar 


6s 


spa 




cma 




sal 


3s 


add 


(bds 


dap 


bjm 


cla 


cli elf 6-opr-opr 


dpy- 


-4000 


jmp 


• 


repeat 10, starp 


szf 


6 


jmp 


• 


stf 


6 


cma 




swap 


cma 




swap 


jmp 


bjm 



/background display • 3/13/62, prs 

define 
dislis J, Q, B 

repeat 6, B=B+B 

elf 5 

lac flo+R 

dap fpo+R 
fs, dap fin+R 

dap fyn+R 

idx fyn+R 

fin, lac /lac X 

sub fpr /right margin 

sma 

jmp fgr+R 

add (2000 
frr, spq 
fou, jmp fuu+R 
fie, sub (1000 

sal 8s 
fyn, lio /lio Y 

dpy-i+B 

stf 5 
fid, idx fyn+R 

sad (lio Q+2 

jmp flp+R 

sad fpo+R 

jmp fx+R 

dap fin+R 

idx fyn+R 

jmp fin+R 

fgr, add (-20000+2000 
jmp frr+R 



fuu, 


szf 


5 


fx, 


jmp 


flo+R+1 




idx 


flo+R 




idx 


flo+R 




sas 


(Q+2 




jmp 


fid+R 




law 


J 




dac 


flo+R 




jmp 


fid+R 


flp, 


lac 


(lio J 




sad 


fpo+R 


JP FX+R 








dap 


fin+R 




law 


J+l 




dap 


fyn+R 




jmp 


fin+R 


fpo, 


lio 




flo, 


J 






terminate 



/return 





define 


background 








Jsp 


bck 




termin 


bck, 


dap 


bcx 




szs 


4o 




jmp 


bcx 




isp 


bcc 


bcx, 


jmp 


• 




law 


i 2 




dac 


bcc 




dislis lj,lq,3 




dislis 2j,2q,2 




dislis 3j>3q>l 




dislis 4j,4q,0 




isp 


bkc 




jmp 


bcx 




law 


i 20 




dac 


bkc 




law 


i 1 




add 


fpr 




spa 






add 


(20000 




dac 


fpr 




jmp 


bcx 


bcc, 







bkc, 







fpr, 


10000 


mul=mus 






div=dis 







start 



